home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / fse.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  11.5 KB  |  337 lines
  1. VERSION 2.00
  2. Begin Form FSEForm 
  3.    Caption         =   "File Server Environment Services Test"
  4.    ClientHeight    =   4440
  5.    ClientLeft      =   1050
  6.    ClientTop       =   1530
  7.    ClientWidth     =   5895
  8.    Height          =   4845
  9.    Left            =   990
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4440
  12.    ScaleWidth      =   5895
  13.    Top             =   1185
  14.    Width           =   6015
  15.    Begin Frame Frame2 
  16.       Caption         =   "Server Information Structure"
  17.       Height          =   1695
  18.       Left            =   120
  19.       TabIndex        =   14
  20.       Top             =   2160
  21.       Width           =   5655
  22.       Begin Label Label16 
  23.          Alignment       =   1  'Right Justify
  24.          Caption         =   "Internet bridge support:"
  25.          Height          =   255
  26.          Left            =   3000
  27.          TabIndex        =   34
  28.          Top             =   1320
  29.          Width           =   2055
  30.       End
  31.       Begin Label Label15 
  32.          Alignment       =   1  'Right Justify
  33.          Caption         =   "Security level:"
  34.          Height          =   255
  35.          Left            =   3720
  36.          TabIndex        =   33
  37.          Top             =   1080
  38.          Width           =   1335
  39.       End
  40.       Begin Label Label12 
  41.          Alignment       =   1  'Right Justify
  42.          Caption         =   "Virtual console version:"
  43.          Height          =   255
  44.          Left            =   3000
  45.          TabIndex        =   32
  46.          Top             =   840
  47.          Width           =   2055
  48.       End
  49.       Begin Label Label11 
  50.          Alignment       =   1  'Right Justify
  51.          Caption         =   "Print server version:"
  52.          Height          =   255
  53.          Left            =   3240
  54.          TabIndex        =   31
  55.          Top             =   600
  56.          Width           =   1815
  57.       End
  58.       Begin Label Label10 
  59.          Alignment       =   1  'Right Justify
  60.          Caption         =   "Queuing version:"
  61.          Height          =   255
  62.          Left            =   3600
  63.          TabIndex        =   30
  64.          Top             =   360
  65.          Width           =   1455
  66.       End
  67.       Begin Label Label9 
  68.          Alignment       =   1  'Right Justify
  69.          Caption         =   "VAP version:"
  70.          Height          =   255
  71.          Left            =   720
  72.          TabIndex        =   29
  73.          Top             =   1320
  74.          Width           =   1215
  75.       End
  76.       Begin Label Label3 
  77.          Alignment       =   1  'Right Justify
  78.          Caption         =   "Accounting version:"
  79.          Height          =   255
  80.          Left            =   120
  81.          TabIndex        =   28
  82.          Top             =   1080
  83.          Width           =   1815
  84.       End
  85.       Begin Label InternetBridgeSupportLabel 
  86.          Height          =   255
  87.          Left            =   5280
  88.          TabIndex        =   27
  89.          Top             =   1320
  90.          Width           =   255
  91.       End
  92.       Begin Label Label14 
  93.          Alignment       =   1  'Right Justify
  94.          Caption         =   "TTS level:"
  95.          Height          =   255
  96.          Left            =   960
  97.          TabIndex        =   26
  98.          Top             =   840
  99.          Width           =   975
  100.       End
  101.       Begin Label Label13 
  102.          Alignment       =   1  'Right Justify
  103.          Caption         =   "SFT level:"
  104.          Height          =   255
  105.          Left            =   960
  106.          TabIndex        =   25
  107.          Top             =   600
  108.          Width           =   975
  109.       End
  110.       Begin Label Label8 
  111.          Alignment       =   1  'Right Justify
  112.          Caption         =   "Version:"
  113.          Height          =   255
  114.          Left            =   1200
  115.          TabIndex        =   24
  116.          Top             =   360
  117.          Width           =   735
  118.       End
  119.       Begin Label SecurityLevelLabel 
  120.          Height          =   255
  121.          Left            =   5280
  122.          TabIndex        =   23
  123.          Top             =   1080
  124.          Width           =   255
  125.       End
  126.       Begin Label VirtualConsoleVersionLabel 
  127.          Height          =   255
  128.          Left            =   5280
  129.          TabIndex        =   22
  130.          Top             =   840
  131.          Width           =   255
  132.       End
  133.       Begin Label PrintServerVersionLabel 
  134.          Height          =   255
  135.          Left            =   5280
  136.          TabIndex        =   21
  137.          Top             =   600
  138.          Width           =   255
  139.       End
  140.       Begin Label QueueVersionLabel 
  141.          Height          =   255
  142.          Left            =   5280
  143.          TabIndex        =   20
  144.          Top             =   360
  145.          Width           =   255
  146.       End
  147.       Begin Label VAPVersionLabel 
  148.          Height          =   255
  149.          Left            =   2040
  150.          TabIndex        =   19
  151.          Top             =   1320
  152.          Width           =   255
  153.       End
  154.       Begin Label AccountingVersionLabel 
  155.          Height          =   255
  156.          Left            =   2040
  157.          TabIndex        =   18
  158.          Top             =   1080
  159.          Width           =   255
  160.       End
  161.       Begin Label TTSLevelLabel 
  162.          Height          =   255
  163.          Left            =   2040
  164.          TabIndex        =   17
  165.          Top             =   840
  166.          Width           =   855
  167.       End
  168.       Begin Label SFTLevelLabel 
  169.          Height          =   255
  170.          Left            =   2040
  171.          TabIndex        =   16
  172.          Top             =   600
  173.          Width           =   855
  174.       End
  175.       Begin Label VersionLabel 
  176.          Height          =   255
  177.          Left            =   2040
  178.          TabIndex        =   15
  179.          Top             =   360
  180.          Width           =   855
  181.       End
  182.    End
  183.    Begin Frame Frame1 
  184.       Caption         =   "Server Description Strings"
  185.       Height          =   1455
  186.       Left            =   120
  187.       TabIndex        =   5
  188.       Top             =   600
  189.       Width           =   5655
  190.       Begin Label Label4 
  191.          Alignment       =   1  'Right Justify
  192.          Caption         =   "Company:"
  193.          Height          =   252
  194.          Left            =   960
  195.          TabIndex        =   13
  196.          Top             =   240
  197.          Width           =   972
  198.       End
  199.       Begin Label Label5 
  200.          Alignment       =   1  'Right Justify
  201.          Caption         =   "Revision:"
  202.          Height          =   252
  203.          Left            =   960
  204.          TabIndex        =   12
  205.          Top             =   480
  206.          Width           =   972
  207.       End
  208.       Begin Label Label6 
  209.          Alignment       =   1  'Right Justify
  210.          Caption         =   "Revision date:"
  211.          Height          =   252
  212.          Left            =   600
  213.          TabIndex        =   11
  214.          Top             =   720
  215.          Width           =   1332
  216.       End
  217.       Begin Label Label7 
  218.          Alignment       =   1  'Right Justify
  219.          Caption         =   "Copyright notice:"
  220.          Height          =   252
  221.          Left            =   480
  222.          TabIndex        =   10
  223.          Top             =   960
  224.          Width           =   1452
  225.       End
  226.       Begin Label CompanyLabel 
  227.          Height          =   252
  228.          Left            =   2040
  229.          TabIndex        =   9
  230.          Top             =   240
  231.          Width           =   3372
  232.       End
  233.       Begin Label RevisionLabel 
  234.          Height          =   252
  235.          Left            =   2040
  236.          TabIndex        =   8
  237.          Top             =   480
  238.          Width           =   3372
  239.       End
  240.       Begin Label RevisionDateLabel 
  241.          Height          =   252
  242.          Left            =   2040
  243.          TabIndex        =   7
  244.          Top             =   720
  245.          Width           =   3372
  246.       End
  247.       Begin Label CopyrightLabel 
  248.          Height          =   444
  249.          Left            =   2040
  250.          TabIndex        =   6
  251.          Top             =   960
  252.          Width           =   3372
  253.       End
  254.    End
  255.    Begin CommandButton OKButton 
  256.       Caption         =   "&OK"
  257.       Height          =   375
  258.       Left            =   2520
  259.       TabIndex        =   0
  260.       Top             =   3960
  261.       Width           =   855
  262.    End
  263.    Begin Label ServerTimeLabel 
  264.       Height          =   252
  265.       Left            =   2160
  266.       TabIndex        =   4
  267.       Top             =   360
  268.       Width           =   2652
  269.    End
  270.    Begin Label Label2 
  271.       Alignment       =   1  'Right Justify
  272.       Caption         =   "Server date and time:"
  273.       Height          =   255
  274.       Left            =   120
  275.       TabIndex        =   3
  276.       Top             =   360
  277.       Width           =   1935
  278.    End
  279.    Begin Label ServerNameLabel 
  280.       Height          =   252
  281.       Left            =   2160
  282.       TabIndex        =   2
  283.       Top             =   120
  284.       Width           =   2532
  285.    End
  286.    Begin Label Label1 
  287.       Alignment       =   1  'Right Justify
  288.       Caption         =   "Default file server:"
  289.       Height          =   255
  290.       Left            =   240
  291.       TabIndex        =   1
  292.       Top             =   120
  293.       Width           =   1815
  294.    End
  295. Sub Form_Load ()
  296.     Dim dateAndTime As DATE_AND_TIME
  297.     Dim serverInfo As FILE_SERV_INFO
  298.     fileServerName$ = String$(48, 0)
  299.     fileServerName$ = GetDefaultFileServerName()
  300.     ServerNameLabel.Caption = fileServerName$
  301.     GetFileServerDateAndTime dateAndTime
  302.     temp$ = Format$(Asc(dateAndTime.month), "00") + "/" + Format$(Asc(dateAndTime.date), "00") + "/" + Format$(Asc(dateAndTime.year), "00")
  303.     temp$ = temp$ + " " + Format$(Asc(dateAndTime.hour), "00") + ":" + Format$(Asc(dateAndTime.minute), "00") + ":" + Format$(Asc(dateAndTime.second), "00")
  304.     ServerTimeLabel.Caption = temp$
  305.     companyName$ = String$(80, 0)
  306.     revision$ = String$(80, 0)
  307.     revisionDate$ = String$(24, 0)
  308.     copyrightNotice$ = String$(80, 0)
  309.     ccode% = GetFileServerDescriptionStrings(companyName$, revision$, revisionDate$, copyrightNotice$)
  310.     If (ccode% = SUCCESSFUL) Then
  311.         CompanyLabel.Caption = companyName$
  312.         RevisionLabel.Caption = revision$
  313.         RevisionDateLabel.Caption = revisionDate$
  314.         CopyrightLabel.Caption = copyrightNotice$
  315.     Else
  316.         MsgBox "Unable to get file server description strings", MB_OK, "Error"
  317.     End If
  318.     ccode% = GetServerInformation(Len(serverInfo), serverInfo)
  319.     If (ccode% = SUCCESSFUL) Then
  320.         VersionLabel.Caption = Format$(Asc(serverInfo.netwareVersion)) + "." + Format$(Asc(serverInfo.netwareSubVersion)) + Chr$(Asc(serverInfo.revisionLevel) + Asc("a"))
  321.         SFTLevelLabel.Caption = Format$(Asc(serverInfo.SFTLevel))
  322.         TTSLevelLabel.Caption = Format$(Asc(serverInfo.TTSLevel))
  323.         AccountingVersionLabel.Caption = Format$(Asc(serverInfo.accountingVersion))
  324.         VAPVersionLabel.Caption = Format$(Asc(serverInfo.VAPversion))
  325.         QueueVersionLabel.Caption = Format$(Asc(serverInfo.queueingVersion))
  326.         PrintServerVersionLabel.Caption = Format$(Asc(serverInfo.printServerVersion))
  327.         VirtualConsoleVersionLabel.Caption = Format$(Asc(serverInfo.virtualConsoleVersion))
  328.         SecurityLevelLabel.Caption = Format$(Asc(serverInfo.securityRestrictionLevel))
  329.         InternetBridgeSupportLabel = Format$(Asc(serverInfo.internetBridgeSupport))
  330.     Else
  331.         MsgBox "Unable to get file server information structure", MB_OK, "Error"
  332.     End If
  333. End Sub
  334. Sub OKButton_Click ()
  335.     Unload FSEForm
  336. End Sub
  337.